home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / misc / amag / AM95043.lha / maxontools-demo / MaxonToolsDemo.AMPK / INSTALL-MaxonTOOLS < prev    next >
Encoding:
Text File  |  1995-03-18  |  6.5 KB  |  301 lines
  1. ; $VER: MaxonTOOLS Install Version 1.0 (19.7.94)
  2. ; Script zum Installieren von MaxonTOOLS
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonTOOLS\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft "
  10.      "automatisch ab. "
  11.      "Auf Ihrer Festplatte muß mindestens 1MB Platz frei sein!\n\n"))
  12.  
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonTOOLS installieren möchten. Sie müssen KEIN Verzeichnis "
  16.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  17.  
  18.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  19.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  20.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  21.       "gekennzeichneten Einträge auswählen.\n"
  22.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  23.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  24.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  25.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  26.       "\n\n"
  27.       ))
  28.  
  29. (set #help-startup
  30. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  31.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  32.      "bereits beim Systemstart ausführen.\n\n"))
  33.  
  34.  
  35. (set #no-inst
  36. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  37.      "MaxonTOOLS-Dateien zu kopieren\n\n"
  38.      "!!! Die Installation wird abgebrochen !!!"))
  39.  
  40.  
  41. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonTOOLS\nangelegt werden?"
  42.                           "\nDas Verzeichnis \"MaxonTOOLS_Demo\" wird automatisch erzeugt!"
  43. ))
  44.  
  45. (set #SIZE 1000000)
  46.  
  47. (set @language "Deutsch")
  48.  
  49. (set os-version (/ (getversion) 65536))
  50. (set os-13 (< os-version 36))
  51. (set os-20 (>= os-version 36))
  52. (set os-21 (>= os-version 38))
  53.  
  54.  
  55.  
  56. (Procedure Inst_NormFiles
  57.     (if (< (getdiskspace @Dest) @Size)
  58.         (abort #no-inst))
  59.  
  60.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  61.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  62. )
  63.  
  64. (Procedure Inst_PatternFiles
  65.     (if (< (getdiskspace @Dest) @Size)
  66.         (abort #no-inst))
  67.  
  68.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  69.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  70. )
  71.  
  72. (Procedure Inst_LhaFiles
  73.     ;(set @In_File (tackon @Source @FName.lha))
  74.     (set @TMP (tackon "RAM:" @FName.lha))
  75.     (set @Dest_File (tackon @default-dest @Dest))
  76.     (if                                          ; Verzeichnis erzeugen
  77.         (= (exists @Dest_File) 0)
  78.         (makedir (@Dest_File)(infos))
  79.     )
  80.  
  81.     (if (< (getdiskspace @Dest_File) @Size)
  82.         (abort #no-inst))
  83.  
  84.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  85.     (working @Working @Dest)
  86.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  87.     (delete @TMP)
  88. )
  89.  
  90. (Procedure Inst_LhaFilesnew
  91.     ;(set @In_File (tackon @Source @FName.lha))
  92.     (set @TMP (tackon "RAM:" @FName.lha))
  93.     (set @Dest_File (tackon @default-dest @Dest))
  94.     (makedir (@Dest_File)(infos))
  95.  
  96.     (if (< (getdiskspace @Dest_File) @Size)
  97.         (abort #no-inst))
  98.  
  99.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  100.     (working @Working @Dest)
  101.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  102.     (delete @TMP)
  103. )
  104.  
  105.  
  106. (message #introduction)
  107. (welcome)
  108. (set old_level @user-level)
  109.  
  110. (complete 0)
  111.  
  112. (set @default-dest                           ; Verzeichnis aussuchen 
  113.     (askdir
  114.         (prompt #COPVERZ)
  115.         (help    #askdir-help)
  116.         (default "WORK:")
  117.     )
  118. )
  119.  
  120. (set @default-dest (tackon @default-dest "MaxonTOOLS_Demo"))
  121. (set @default-src "MaxonTOOLS:")
  122.  
  123.  
  124. (if                                          ; Verzeichnis erzeugen
  125.     (= (exists @default-dest) 0)
  126.     (makedir @default-dest)
  127. )
  128.  
  129.  
  130.     (askdisk
  131.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTOOLS-Demo\" ein!")
  132.         (help #askdir-help)
  133.         (dest "MaxonTOOLS")
  134.     )
  135.  
  136.  
  137.  
  138. (complete 5)
  139.  
  140. (
  141.     (set @Source @default-src)
  142.     (set @Dest @default-dest)
  143.    (set @Pattern "MaxonTOOLS_Demo")
  144.     (set @Size #SIZE)
  145.     (Inst_PatternFiles)
  146. )
  147.  
  148. (complete 20)
  149.  
  150. (
  151.     (set @Source @default-src)
  152.     (set @Dest @default-dest)
  153.    (set @Pattern "Config")
  154.     (set @Size 80000)
  155.     (Inst_PatternFiles)
  156. )
  157.  
  158. (complete 40)
  159.  
  160. (
  161.     (set @Source @default-src)
  162.     (set @Dest @default-dest)
  163.    (set @FName "Prefs")
  164.     (set @Size 300000)
  165.     (Inst_NormFiles)
  166. )
  167.  
  168. (complete 60)
  169.  
  170. (
  171.     (set @Source @default-src)
  172.     (set @Dest @default-dest)
  173.    (set @FName "Icons")
  174.     (set @Size 40000)
  175.     (Inst_NormFiles)
  176.  
  177. )
  178.  
  179. (complete 70)
  180.  
  181. (
  182.     (set @Source @default-src)
  183.     (set @Dest @default-dest)
  184.    (set @FName "Module")
  185.     (set @Size 5000)
  186.     (Inst_NormFiles)
  187. )
  188.  
  189. (
  190.     (set @Source @default-src)
  191.     (set @Dest @default-dest)
  192.    (set @FName "Inhalt")
  193.     (set @Size 1000)
  194.     (Inst_NormFiles)
  195. )
  196.  
  197. (
  198.     (set @Source @default-src)
  199.     (set @Dest @default-dest)
  200.    (set @FName "Vollversion")
  201.     (set @Size 1000)
  202.     (Inst_NormFiles)
  203. )
  204.  
  205. (
  206.     (set @Source @default-src)
  207.     (set @Dest @default-dest)
  208.    (set @FName "Oberfläche")
  209.     (set @Size 30000)
  210.     (Inst_NormFiles)
  211. )
  212.  
  213. (complete 80)
  214.  
  215.     (makedir (tackon @default-dest "libs"))
  216.  
  217. (
  218.     (set @Source @default-src)
  219.     (set @Dest (tackon @default-dest "libs"))
  220.    (set @FName "mt.library")
  221.     (set @Size 30000)
  222.     (Inst_NormFiles)
  223. )
  224.  
  225. (
  226.     (set @Source @default-src)
  227.     (set @Dest @default-dest)
  228.    (set @FName "MT_Anleitung")
  229.     (set @Size 25000)
  230.     (Inst_NormFiles)
  231. )
  232.  
  233.  
  234. (
  235.     (set @Source @default-src)
  236.     (set @Dest @default-dest)
  237.    (set @FName "LHA")
  238.     (set @Size 125000)
  239.     (Inst_NormFiles)
  240. )
  241.     (set @TMP (tackon @default-dest "LHA/lha_e138.lha"))
  242.     (set @Dest_File (tackon @default-dest "LHA"))
  243.  
  244.     (run ("%s/LHA -q x %s \"%s/\"" @Dest_File @TMP @Dest_File))
  245.  
  246.  
  247. ;(if                               
  248. ;    (or (<> (exists "locale:catalogs/deutsch") 0) os-21)
  249.  
  250. ; (
  251. ;    (set @Source @default-src)
  252. ;    (set @Dest "locale:catalogs/deutsch")
  253. ;   (set @FName "mt.catalog")
  254. ;    (set @Size 30000)
  255. ;    (Inst_NormFiles)
  256. ; )
  257. ;)
  258.  
  259. (complete 90)
  260.  
  261.  
  262.  
  263.  
  264.     
  265.     (
  266.     ; ------- STARTUP ÄNDERN
  267.     
  268.     
  269.     (set command1 (cat "SETENV MTPATH=" "\"" @default-dest "\""))
  270.     (set command2 (cat "ASSIGN LIBS: " "\"" (tackon @default-dest "LIBS\" ADD")))
  271.     (set command3 (cat "PATH " "\"" (tackon @default-dest "LHA\" ADD")))
  272.     (set command1.txt
  273.         (cat 
  274.              "\n\n\nDie User-Startup muß um Pfadangaben für MaxonTOOLS ergänzt werden.\n\n"
  275.         )
  276.     )
  277.     
  278.     (startup "MaxonTOOLS"
  279.         (prompt command1.txt)
  280.         (help #help-startup)
  281.         (command command1)
  282.         (command (cat "\n" command2))
  283.         (command (cat "\n" command3))
  284.     )
  285.     )
  286.  
  287.     (run command1)
  288.     (run command2)
  289.     (run command3)
  290.  
  291. (complete 100)
  292.  
  293. ; ------- FERTIG
  294.  
  295.  
  296.  
  297. (exit)
  298.  
  299. ;=============================================================================
  300.  
  301.